home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / pascal3 / pro5 / test.h < prev    next >
Text File  |  1989-12-15  |  2KB  |  40 lines
  1. void test_screen(void)
  2. {
  3.   gotoxy(1,4);
  4.   cputs("╔══════════════════════════════════════════════════════════════════════════╗");
  5.   gotoxy(1,5);
  6.   cputs("║ THIS TEST SCREEN WAS DRAWN WITH A TEXT EDITOR.  THE CODE GENERATORS CAN  ║");
  7.   gotoxy(1,6);
  8.   cputs("║ PROCESS IT INTO TURBO PASCAL OR TURBO C, FOR USE AS A DATA ENTRY SCREEN. ║");
  9.   gotoxy(1,7);
  10.   cputs("╚══════════════════════════════════════════════════════════════════════════╝");
  11.   gotoxy(10,11);
  12.   cputs("╔═══════════════════════════════════════════════════════════╗");
  13.   gotoxy(10,12);
  14.   cputs("║  Name                                                     ║");
  15.   gotoxy(10,13);
  16.   cputs("║  Street & Number                                          ║");
  17.   gotoxy(10,14);
  18.   cputs("║  City                      State    ZIP Code      -       ║");
  19.   gotoxy(10,15);
  20.   cputs("║  Telephone #  (   )    -                                  ║");
  21.   gotoxy(10,16);
  22.   cputs("╚═══════════════════════════════════════════════════════════╝");
  23.   gotoxy(1,19);
  24.   cputs("┌─────────────────────────────────────────────────────────────────────────────┐");
  25.   gotoxy(1,20);
  26.   cputs("│ WATCH THIS LINE FOR MESSAGES ══>                                            │");
  27.   gotoxy(1,21);
  28.   cputs("└─────────────────────────────────────────────────────────────────────────────┘");
  29.   /*  DATA FIELD COORDINATES AND LENGTHS */  /*  50-column data field at (18,12)  */
  30.   /*  39-column data field at (29,13)  */
  31.   /*  19-column data field at (18,14)  */
  32.   /*  2-column data field at (45,14)  */
  33.   /*  5-column data field at (57,14)  */
  34.   /*  4-column data field at (63,14)  */
  35.   /*  3-column data field at (27,15)  */
  36.   /*  3-column data field at (32,15)  */
  37.   /*  4-column data field at (36,15)  */
  38.   /*  41-column data field at (36,20)  */
  39. }  /*  test_screen() */
  40.